value(0).
value(1).
value(2).
value(3).
value(4).
value(5).
value(6).
value(7).
value(8).
value(9).
value(10).
value(11).
value(12).
value(13).
value(14).

suit(spade). suit(diamond). suit(heart). suit(club).
card(X,Y) :- value(X),suit(Y).
%card(X,Y) :- card(Y,X).

%bestCard([],E)
%bestCard([H|T])